Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1455 1623 (N26W49 L=317)  1549    274        3 (1321/1590-1560/1651) -19.3 W37-W57 N22-N29
      2 1233 1369 (N20W22 L=290)   527    148        0 (1172/1333-1300/1394)  -6.3 W17-W26 N18-N21
      3 1053 1114 (N11W04 L=272)   949    288        1 (1002/ 987-1106/1243)  86.6 W02-W05 N02-N19
      4  311 1178 (N33E46 L=222)   319     53        0 ( 293/1153- 334/1203)  26.6 E48-E43 N31-N34
      5  389 1151 (N29E39 L=229)   524    122        1 ( 348/1097- 438/1189) -45.0 E42-E35 N25-N32
      6 1828 1033 (S17W53 L=321)   627    125        1 (1794/ 986-1849/1105)  45.0 W48-W56 S19-S13
      7 1772 1031 (S15W47 L=315)   493     84        1 (1754/ 979-1798/1062)  78.7 W45-W50 S17-S12
      8 1884  898 (S27W58 L=326)   713    160        0 (1865/ 827-1912/ 969)  41.2 W55-W63 S30-S23
      9  830  912 (N06E14 L=255)   391    122        0 ( 780/ 873- 886/ 939) -51.3 E16-E11 N02-N07
     10  147  809 (N13E73 L=195)   787    102        1 ( 130/ 761- 162/ 859)  45.0 E75-E68 N10-N16
     11  651  746 (N01E29 L=240)   686    240        1 ( 572/ 675- 698/ 843)  26.6 E35-E23 S03-N05
     12 1544  776 (S22W24 L=292)   412     65        2 (1517/ 747-1568/ 802)  26.6 W22-W26 S23-S19
     13 1107  688 (S14E04 L=264)   517    188        0 (1021/ 658-1192/ 703) -12.5 E09-W00 S16-S12
     14  371  486 (S09E61 L=207)  3343    373        8 ( 293/ 349- 460/ 661)  62.4 E70-E55 S19-N02
     15 1151  577 (S22E05 L=263)   308    115        0 (1105/ 540-1178/ 629)  26.6 E08-E02 S23-S19
     16 1455  602 (S30W15 L=283)   263     36        0 (1427/ 585-1479/ 619) -14.0 W12-W16 S30-S28
     17  529  592 (S06E42 L=226)   257     88        0 ( 497/ 564- 574/ 611)   0.0 E45-E38 S06-S04
     18 1052  557 (S20E11 L=257)   254    104        0 (1004/ 529-1100/ 586) -56.3 E13-E09 S23-S17
     19  585  478 (S14E43 L=225)  1269    261        4 ( 529/ 403- 647/ 566)  48.0 E49-E37 S18-S08
     20  439  530 (S08E52 L=216)   494     41        1 ( 422/ 499- 461/ 564)  53.1 E53-E49 S09-S05
     21 1255  316 (S44E08 L=260)   593     77        2 (1216/ 289-1298/ 338)   8.1 E11-E04 S45-S41
     22 1188  264 (S46E16 L=252)   514     36        0 (1165/ 239-1214/ 294)  80.5 E17-E13 S48-S42
  

    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