Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  754 1519 (N15E29 L= 19)   327    136        0 ( 734/1461- 789/1559) -74.1 E30-E25 N11-N18
      2  286 1172 (S14E52 L=356)  1036    163        3 ( 254/1091- 314/1243) -77.5 E56-E48 S18-S09
      3  351 1203 (S11E47 L=  1)   426    106        0 ( 323/1171- 401/1235)  45.0 E49-E43 S13-S08
      4  660 1034 (S15E21 L= 26)   580    192        0 ( 608/ 945- 709/1117) -35.0 E26-E16 S19-S11
      5 1731 1060 (N14W43 L= 91)   284     69        1 (1717/1023-1746/1095) -76.0 W41-W44 N11-N16
      6 1350  968 (S02W20 L= 67)   983    235        0 (1246/ 930-1456/1045)   0.0 W11-W26 S04-N00
      7 1880  965 (N14W60 L=108)   937    234        4 (1833/ 912-1919/1015)  -4.8 W53-W66 N11-N16
      8 1771  831 (N03W53 L=101)   933    161        1 (1741/ 751-1803/ 900) -54.5 W50-W57 N00-N07
      9  408  836 (S32E36 L= 11)  1016    307        2 ( 280/ 809- 514/ 863)  11.3 E47-E27 S35-S29
     10 1195  713 (S20W18 L= 66)   385    149        0 (1120/ 693-1268/ 731)  26.6 W13-W22 S22-S18
     11 1464  673 (S15W36 L= 84)   470    138        0 (1395/ 645-1532/ 719)  49.4 W31-W39 S17-S10
     12 1711  589 (S11W58 L=106)   425     46        0 (1689/ 562-1735/ 617)  63.4 W56-W59 S13-S09
     13 1139  555 (S31W21 L= 68)   477    113        0 (1079/ 535-1202/ 580)  45.0 W17-W23 S33-S27
     14 1683  511 (S16W60 L=108)  2188    398        8 (1593/ 470-1773/ 550)  14.0 W52-W73 S19-S12
     15 1415  455 (S28W43 L= 90)   260     43        1 (1394/ 432-1439/ 476)  71.6 W41-W44 S29-S26
  

    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