Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1517 1638 (N25W56 L= 38)   717     89        0 (1480/1603-1544/1669)  59.0 W53-W59 N22-N27
      2 1520 1528 (N19W48 L= 30)   339     73        0 (1503/1492-1536/1569)  29.7 W45-W52 N17-N21
      3 1287 1496 (N25W31 L= 13)   357    119        0 (1231/1474-1340/1519) -50.2 W28-W33 N22-N28
      4 1163 1388 (N23W19 L=  1)   673    261        2 (1050/1341-1252/1425) -32.5 W11-W22 N17-N26
      5  225 1392 (N49E66 L=276)   612     87        0 ( 197/1352- 262/1416)  16.7 E70-E58 N46-N50
      6  911 1239 (N21E01 L=341)   504    152        3 ( 872/1190- 965/1309) -90.0 E02-W01 N17-N26
      7  397 1251 (N35E38 L=304)  1068    177        4 ( 322/1203- 481/1300) -31.0 E45-E30 N31-N40
      8  554 1131 (N24E26 L=316)   357     87        1 ( 523/1094- 589/1170) -63.4 E27-E24 N21-N27
      9  164 1018 (N25E66 L=275)   697     69        1 ( 147/ 986- 179/1057) -90.0 E69-E64 N23-N27
     10  189  932 (N20E64 L=278)  2415    210        7 ( 136/ 845- 232/1038)  45.0 E72-E57 N14-N25
     11 1444  880 (S13W20 L=  2)   965    328        0 (1382/ 757-1505/1031)  40.6 W13-W27 S18-S06
     12 1729  930 (S19W42 L= 24)   813    172        1 (1706/ 841-1744/1020)  63.4 W39-W45 S24-S14
     13  683  903 (N08E23 L=319)   532    175        0 ( 621/ 840- 744/ 968) -73.3 E25-E19 N03-N13
     14  399  879 (N13E43 L=299)   264     70        1 ( 368/ 852- 420/ 897) -45.0 E45-E41 N11-N14
     15 1287  744 (S16W07 L=349)   223    102        0 (1224/ 727-1316/ 767)  -9.5 W03-W09 S17-S14
     16 1192  623 (S21E01 L=341)   328    133        0 (1159/ 599-1248/ 663) -45.0 E03-W02 S22-S17
     17 1434  597 (S30W13 L=355)   696    153        2 (1384/ 540-1484/ 649)  26.6 W09-W17 S32-S26
     18 1128  294 (S42E18 L=324)   404     80        0 (1095/ 261-1161/ 334)  24.0 E22-E13 S44-S39
     19  942  259 (S39E33 L=309)   647    131        0 ( 912/ 203- 966/ 324)  57.5 E38-E29 S43-S32
  

    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