Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1321 1594 (N39W29 L=301)   759    181        0 (1258/1541-1395/1630)  18.4 W22-W37 N35-N41
      2  609 1569 (N43E31 L=241)   310     83        0 ( 568/1550- 657/1587)   7.1 E34-E26 N41-N44
      3  964 1558 (N40E00 L=272)   668    217        3 ( 868/1530-1071/1583) -15.9 E07-W08 N37-N42
      4 1063 1269 (N20W04 L=276)   212     65        1 (1032/1253-1096/1288) -26.6 W02-W06 N18-N20
      5 1584 1196 (N11W38 L=310)   786    243        2 (1498/1108-1645/1252) -45.0 W32-W42 N04-N14
      6  523 1018 (N07E32 L=240)   862    370        0 ( 412/ 871- 629/1130) -46.8 E40-E25 S02-N14
      7  928 1079 (N09E06 L=266)   207     85        0 ( 916/1030- 942/1115)  68.2 E06-E04 N06-N11
      8 1907 1029 (S04W69 L=341)   764     59        0 (1879/1000-1933/1064)  38.7 W64-W74 S05-S01
      9 1270  788 (S11W14 L=286)   225    103        1 (1252/ 740-1291/ 832)  80.5 W12-W15 S14-S08
     10  297  673 (S14E57 L=215)  1783    306        3 ( 238/ 606- 360/ 761) -58.0 E63-E51 S18-S08
     11  915  658 (S17E10 L=262)   221    123        0 ( 891/ 623- 932/ 706) -80.5 E11-E08 S19-S13
     12 1747  637 (S27W53 L=325)   921    125        1 (1694/ 595-1801/ 674)  15.3 W48-W59 S28-S24
     13 1113  583 (S23W03 L=275)   496    215        0 (1036/ 530-1191/ 655)  35.0 E02-W08 S26-S19
     14  239  613 (S18E68 L=204)   654     58        3 ( 222/ 579- 254/ 640)  53.1 E71-E64 S20-S16
     15  676  547 (S23E27 L=244)   733    308        1 ( 619/ 423- 742/ 639)  53.7 E34-E21 S31-S16
     16 1595  507 (S34W41 L=313)   324     35        1 (1580/ 486-1619/ 531) -56.3 W38-W43 S35-S32
     17 1520  383 (S43W38 L=310)  3010    394       10 (1342/ 332-1644/ 465)  -1.7 W20-W53 S48-S36
     18 1186  316 (S45W07 L=279)   323     47        1 (1164/ 294-1211/ 346)  63.4 W05-W09 S46-S42
     19  885  251 (S48E21 L=251)  3177    541        8 ( 664/ 188-1095/ 317)   4.9 E50-W00 S54-S43
  

    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