Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1504 1688 (N28W55 L=116)   403     75        0 (1466/1669-1547/1705) -45.0 W52-W58 N26-N30
      2 1611 1570 (N19W55 L=116)   632    128        3 (1568/1542-1657/1594) -33.7 W51-W58 N16-N20
      3 1449 1513 (N20W40 L=101)   882    242        0 (1363/1454-1556/1589) -65.2 W36-W44 N13-N26
      4  427 1502 (N47E34 L= 27)   613    120        2 ( 381/1472- 482/1526)   0.0 E39-E27 N45-N48
      5 1010 1493 (N30W12 L= 73)   941    233        1 ( 912/1442-1116/1525)  -8.1 W04-W18 N28-N32
      6 1334 1451 (N20W30 L= 91)   901    265        0 (1226/1370-1436/1497) -53.1 W23-W33 N12-N24
      7 1659 1465 (N12W53 L=114)   332     25        0 (1639/1449-1683/1483) -56.3 W51-W55 N10-N13
      8 1078 1334 (N19W11 L= 72)   290    134        0 (1015/1319-1151/1348) -35.5 W07-W14 N16-N21
      9 1764 1213 (S04W52 L=113)   487     96        1 (1746/1153-1787/1248)  45.0 W49-W54 S07-S02
     10 1824 1173 (S08W56 L=117)   366     52        0 (1812/1140-1837/1204)  45.0 W54-W58 S09-S06
     11 1298 1030 (S02W15 L= 76)   324    112        1 (1265/ 989-1339/1075)  26.6 W12-W18 S04-N00
     12  182 1041 (N22E60 L=  1)   565     56        1 ( 158/1010- 211/1066) -53.1 E63-E56 N20-N24
     13 1400  925 (S11W19 L= 80)   251    108        0 (1342/ 906-1441/ 950) -18.4 W15-W21 S11-S09
     14  908  745 (S09E13 L= 48)  2019    423        6 ( 776/ 637-1036/ 863)   9.5 E21-E03 S14-S05
     15  530  695 (S04E37 L= 24)  3069    612        6 ( 346/ 529- 730/ 849) -45.0 E49-E29 S16-N05
     16  146  807 (N10E70 L=351)   787    107        0 ( 102/ 784- 197/ 846) -15.9 E78-E63 N07-N12
     17  319  601 (S05E58 L=  3)  1550    233        2 ( 275/ 534- 387/ 661) -77.5 E63-E54 S10-S01
     18 1075  543 (S25E09 L= 52)  1640    429        1 ( 955/ 488-1246/ 660) -40.6 E14-W02 S29-S15
     19  391  482 (S14E58 L=  3)  4439    393       10 ( 249/ 343- 529/ 555) -23.5 E78-E46 S22-S06
     20  844  285 (S37E36 L= 25)  4302    536        6 ( 722/ 116- 942/ 495)  29.5 E70-E23 S48-S22
  

    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