Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  557 1664 (N58E35 L= 10)  2760    304        5 ( 444/1592- 687/1724)   6.9 E52-E18 N52-N61
      2  861 1574 (N44E01 L= 44)   653    149        1 ( 789/1550- 934/1599) -28.6 E07-W04 N41-N47
      3 1314 1548 (N33W32 L= 77)   271     49        1 (1287/1522-1335/1564) -71.6 W30-W34 N31-N34
      4 1126 1543 (N37W18 L= 63)   371    124        1 (1067/1522-1190/1557) -20.6 W13-W23 N35-N38
      5  255 1272 (N32E59 L=346)   408     56        0 ( 223/1254- 292/1287)   0.0 E63-E53 N30-N32
      6  787 1105 (N15E13 L= 32)   602    173        1 ( 742/1031- 811/1181) -78.7 E15-E11 N10-N20
      7  292 1089 (N20E52 L=353)   642    138        1 ( 275/1014- 320/1133) -81.9 E53-E48 N15-N22
      8  711  979 (N08E20 L= 25)   243     33        1 ( 686/ 960- 737/ 999)   0.0 E21-E18 N07-N09
      9 1827  865 (S19W56 L=101)  1190    234        0 (1781/ 778-1872/ 974)  48.0 W50-W62 S23-S13
     10 1599  882 (S12W34 L= 79)   265     92        1 (1573/ 847-1627/ 929)  38.7 W32-W37 S14-S10
     11 1594  723 (S23W33 L= 78)  1387    281        2 (1486/ 655-1658/ 827)  26.6 W24-W38 S25-S16
     12 1147  679 (S16W02 L= 47)   585    134        1 (1118/ 618-1190/ 739)  56.3 W00-W05 S20-S12
     13 1589  605 (S31W33 L= 78)   859    292        0 (1483/ 537-1703/ 690)  17.5 W23-W43 S33-S27
     14 1229  528 (S28W05 L= 50)   536    110        2 (1196/ 484-1264/ 574) -66.8 W03-W06 S31-S24
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y