Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  368 1616 (N32E70 L=208)  1342    116        1 ( 341/1554- 394/1664) -29.7 E82-E65 N27-N35
      2  544 1431 (N22E38 L=239)   460    100        1 ( 507/1400- 600/1464)  26.6 E40-E34 N19-N24
      3  876 1242 (N14E11 L=266)   239     98        0 ( 830/1226- 930/1256)   8.1 E14-E07 N12-N14
      4 1542  999 (N04W34 L=311)   713    161        1 (1506/ 927-1586/1071)  71.6 W31-W36 N00-N09
      5 1010  992 (S00E01 L=277)   463     98        2 ( 964/ 969-1052/1035)  11.3 E03-W02 S01-N02
      6 1473  953 (N01W29 L=307)   279     48        0 (1451/ 928-1494/ 974) -33.7 W27-W30 N00-N02
      7  162  857 (S18E69 L=208)  2255    151        6 ( 142/ 774- 189/ 928)  59.0 E75-E63 S23-S13
      8 1031  850 (S09W02 L=280)   481    141        0 ( 989/ 805-1088/ 875)  38.7 W00-W05 S12-S07
      9  881  830 (S12E07 L=271)   375     80        0 ( 842/ 808- 923/ 849) -11.3 E09-E04 S12-S10
     10 1142  798 (S11W09 L=287)   281     77        1 (1107/ 769-1173/ 827) -21.8 W06-W11 S12-S09
     11  776  760 (S17E13 L=264)   301     77        1 ( 740/ 742- 802/ 786)  45.0 E15-E11 S18-S15
     12 1691  710 (S12W51 L=329)   992    152        0 (1660/ 640-1730/ 778)  83.7 W49-W53 S16-S07
     13 1066  722 (S17W05 L=283)   549    194        0 ( 989/ 699-1131/ 774) -18.4 W00-W09 S18-S14
     14  310  716 (S25E52 L=226)   787    159        1 ( 253/ 690- 383/ 758)  14.0 E59-E43 S27-S21
     15 1465  674 (S16W33 L=311)   772    235        0 (1407/ 632-1528/ 739)  49.4 W28-W36 S19-S11
     16 1712  629 (S17W56 L=334)  1089    133        1 (1677/ 560-1753/ 666)  76.0 W53-W60 S22-S14
     17 1048  599 (S25W06 L=284)   220     68        1 (1021/ 566-1062/ 621) -53.1 W03-W07 S27-S23
     18  971  569 (S28W01 L=279)   216     79        0 ( 958/ 530- 982/ 608)  90.0 W00-W01 S30-S25
     19  888  511 (S33E04 L=273)   285     86        0 ( 841/ 497- 928/ 527)   0.0 E07-E01 S33-S31
  

    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