Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  578 1551 (N26E42 L=242)  1029    170        1 ( 544/1469- 624/1620) -79.7 E44-E39 N20-N31
      2 1554 1552 (N43W36 L=319)   525     70        0 (1531/1518-1578/1584) -78.7 W33-W38 N40-N45
      3 1804 1307 (N29W59 L=342)   567     87        0 (1778/1259-1824/1338) -51.3 W56-W61 N26-N31
      4 1622 1141 (N16W38 L=322)   386    114        0 (1578/1104-1657/1172) -23.2 W34-W41 N13-N17
      5  144 1081 (S09E72 L=212)  1375    128        2 ( 120/1013- 171/1135)  82.9 E76-E67 S13-S05
      6  205 1057 (S09E61 L=222)   683    124        2 ( 172/1012- 230/1110) -50.2 E66-E57 S12-S06
      7  258 1067 (S08E55 L=229)   426     63        1 ( 235/1040- 287/1098)  31.0 E57-E52 S09-S06
      8  248  966 (S14E55 L=228)   518    132        0 ( 212/ 918- 278/1022)  41.2 E60-E52 S17-S10
      9  293  827 (S22E51 L=233)   560     61        2 ( 268/ 793- 322/ 870) -78.7 E53-E47 S24-S19
     10 1661  610 (S16W53 L=337)  3567    627       13 (1541/ 454-1731/ 822) -87.7 W45-W65 S27-S02
     11  834  689 (S23E07 L=276)   283     81        0 ( 808/ 656- 860/ 725) -36.9 E09-E05 S25-S21
     12 1771  640 (S13W64 L=347)   969    128        0 (1735/ 585-1798/ 691) -81.9 W61-W66 S16-S09
     13 1788  576 (S16W71 L=355)   954     90        1 (1760/ 537-1818/ 606)  59.0 W68-W75 S19-S14
     14 1154  516 (S30W17 L=301)  1213    352        1 ( 996/ 474-1308/ 563)  24.2 W07-W27 S34-S24
     15 1345  271 (S45W47 L=331)  2879    353        4 (1213/ 225-1506/ 337)  22.6 W34-W61 S50-S37
  

    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