Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  506 1490 (N33E34 L= 12)  4520    562       11 ( 312/1262- 684/1647) -32.0 E70-E19 N16-N47
      2 1726 1497 (N22W59 L=105)   750     89        1 (1679/1461-1758/1520) -23.2 W54-W63 N19-N23
      3  302 1381 (N27E51 L=355)   522    103        3 ( 274/1340- 335/1427) -29.1 E56-E47 N24-N30
      4  256 1303 (N23E55 L=351)   565     94        2 ( 242/1263- 281/1361) -71.6 E57-E51 N20-N26
      5  322 1251 (N19E47 L=359)   457     59        1 ( 298/1221- 352/1277)  33.7 E49-E44 N16-N20
      6  259 1237 (N19E53 L=353)   433      0       -1 ( 232/1219- 287/1265)  11.3 E56-E50 N17-N20
      7  195 1144 (N14E60 L=346)  3480    400        9 ( 118/1023- 290/1256) -36.0 E73-E49 N05-N21
      8 1714  999 (S08W46 L= 92)   864    140        2 (1678/ 927-1760/1044)  54.5 W42-W50 S12-S05
      9  647  806 (S11E25 L= 21)   202     74        1 ( 623/ 776- 676/ 838) -53.1 E26-E23 S12-S08
     10 1490  771 (S20W28 L= 74)   590    191        0 (1415/ 727-1586/ 799)  13.0 W22-W35 S22-S19
     11  523  573 (S24E40 L=  6)  1802    442        2 ( 459/ 398- 644/ 758)  38.2 E54-E26 S35-S13
     12 1290  692 (S24W14 L= 60)   694    208        1 (1219/ 656-1385/ 753) -28.6 W09-W20 S26-S19
     13  359  598 (S21E53 L=353)  1293    179        3 ( 316/ 502- 389/ 668)  79.7 E56-E50 S27-S16
     14 1579  468 (S42W41 L= 87)   377     50        0 (1549/ 451-1613/ 487) -14.0 W37-W45 S43-S40
  

    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