Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1428 1779 (N37W63 L=303)   959    140        1 (1377/1738-1483/1803)  -3.0 W53-W72 N34-N39
      2 1620 1507 (N17W54 L=294)   436     45        2 (1594/1485-1650/1526) -36.9 W51-W57 N15-N18
      3 1748 1456 (N10W63 L=303)   944     59        2 (1709/1434-1791/1480) -16.7 W58-W68 N07-N11
      4  994 1349 (N26W07 L=247)   634    192        0 ( 906/1300-1077/1397) -48.4 W02-W10 N21-N30
      5 1880 1275 (S04W69 L=309)   903     80        0 (1858/1232-1896/1320)  29.7 W64-W74 S06-S02
      6 1831 1269 (S03W62 L=302)   433     21        0 (1813/1246-1845/1292)  21.8 W59-W64 S03-S01
      7 1038 1246 (N19W06 L=246)   503    175        1 ( 956/1216-1119/1268) -11.3 W01-W11 N16-N20
      8 1593 1125 (S02W36 L=276)   746    162        1 (1570/1041-1617/1196)  49.4 W33-W39 S07-N01
      9  314 1059 (N24E47 L=193)   396     72        1 ( 281/1033- 345/1079) -45.0 E50-E44 N22-N26
     10  252  904 (N16E56 L=184)   534     89        0 ( 223/ 860- 277/ 940) -51.3 E58-E53 N13-N18
     11  204  812 (N11E64 L=176)  2341    148       10 ( 161/ 753- 293/ 907) -42.3 E71-E54 N07-N17
     12 1850  863 (S26W54 L=294)   875    113        1 (1802/ 844-1894/ 895) -21.0 W48-W61 S28-S22
     13  447  836 (N09E40 L=200)   355     91        0 ( 418/ 794- 477/ 881) -71.6 E41-E38 N06-N12
     14 1142  543 (S24E06 L=234)   729    180        0 (1078/ 476-1189/ 619) -80.5 E07-E03 S29-S17
     15  421  537 (S08E53 L=187)   838    191        0 ( 375/ 469- 451/ 612)  66.0 E56-E50 S12-S03
     16 1369  385 (S42W05 L=245)  3707    754        7 (1066/ 219-1640/ 568)   7.4 E24-W30 S47-S37
     17  623  477 (S16E40 L=200)  1491    249        5 ( 562/ 394- 691/ 567)  54.0 E45-E33 S21-S10
     18  762  425 (S22E33 L=207)   549    110        0 ( 721/ 397- 792/ 473)  20.6 E36-E28 S23-S19
     19  546  411 (S18E49 L=191)   418     82        1 ( 516/ 376- 582/ 446)  80.5 E50-E46 S21-S15
     20  377  369 (S19E73 L=167)  1065     45        2 ( 355/ 343- 398/ 390)  14.9 E83-E67 S21-S17
     21  748  228 (S36E48 L=192)   600     83        2 ( 735/ 186- 767/ 277)  32.5 E54-E43 S39-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