Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1390 1586 (N42W15 L=310)  1963    437        4 (1205/1491-1547/1660)  -8.1 W00-W29 N38-N44
      2  816 1490 (N23E23 L=272)   719    144        1 ( 778/1427- 850/1560) -41.2 E27-E19 N19-N26
      3  479 1443 (N14E45 L=250)  1302    170        2 ( 401/1381- 532/1510)  45.0 E50-E41 N10-N19
      4  348 1431 (N11E56 L=239)   921    132        4 ( 308/1388- 372/1487) -45.0 E59-E52 N08-N14
      5  204 1403 (N07E73 L=221)  1551    146        1 ( 180/1331- 228/1471) -56.3 E80-E68 N02-N11
      6  496 1292 (N05E38 L=256)   290     88        0 ( 461/1266- 527/1310)  36.9 E40-E35 N03-N06
      7 1846 1176 (N23W59 L=354)   693    105        0 (1814/1131-1879/1216) -26.6 W55-W63 N21-N25
      8 1536 1171 (N17W30 L=324)   250     64        1 (1513/1138-1549/1208)  90.0 W27-W30 N14-N19
      9  303 1050 (S12E49 L=245)  1018    160        1 ( 269/ 978- 339/1115)  66.0 E51-E46 S16-S07
     10  639  889 (S16E21 L=273)  1179    468        0 ( 467/ 817- 795/ 945)   9.9 E33-E10 S22-S11
     11 1401  857 (S04W26 L=320)   346    100        2 (1381/ 804-1423/ 898) -63.4 W23-W27 S07-S01
     12 1864  802 (N01W67 L=  1)   497     54        2 (1838/ 784-1897/ 818)  12.5 W63-W72 N00-N02
     13 1654  574 (S16W54 L=348)   562     77        0 (1622/ 550-1688/ 598)  45.0 W51-W56 S17-S13
     14 1427  501 (S25W39 L=333)  1465    270        3 (1305/ 425-1545/ 562)  40.2 W32-W46 S31-S19
  

    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