Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1067 1555 (N30W06 L=169)   567    134        3 (1009/1504-1121/1600) -45.0 W02-W09 N26-N33
      2  462 1480 (N29E38 L=125)   816    145        4 ( 407/1440- 533/1533) -26.6 E43-E31 N26-N33
      3  262 1302 (N19E53 L=109)  3139    318       14 ( 205/1166- 336/1438) -86.6 E60-E45 N11-N28
      4 1586 1323 (N13W38 L=201)   247     77        0 (1544/1310-1622/1339) -21.8 W35-W41 N12-N14
      5 1475 1207 (N06W29 L=192)   236     68        0 (1440/1191-1512/1223) -11.3 W26-W31 N05-N07
      6 1245 1102 (N01W13 L=176)   703    301        1 (1133/1057-1382/1132)  -3.8 W06-W21 S01-N03
      7  465  880 (S07E36 L=127)   617    104        1 ( 430/ 832- 506/ 924)  45.0 E39-E32 S10-S05
      8 1080  815 (S15W02 L=165)  2070    555       13 ( 881/ 623-1266/ 920)   2.6 E09-W13 S26-S09
      9  691  893 (S08E21 L=142)   228    100        0 ( 642/ 868- 729/ 916) -31.0 E23-E18 S09-S06
     10  402  788 (S12E42 L=120)   422    131        1 ( 390/ 721- 414/ 855)  76.0 E44-E41 S16-S08
     11  215  789 (S11E60 L=103)   871    106        0 ( 178/ 746- 249/ 830)  20.0 E66-E55 S13-S08
     12 1694  805 (S18W45 L=208)   272     72        2 (1665/ 769-1730/ 825)  53.1 W42-W47 S20-S16
     13  515  692 (S19E36 L=127)   238     55        1 ( 487/ 661- 546/ 721) -63.4 E37-E33 S21-S17
     14  363  470 (S32E59 L=104)  1624    187        5 ( 323/ 371- 423/ 529)  19.8 E76-E50 S38-S28
     15 1653  470 (S40W51 L=214)   877    137        0 (1590/ 451-1714/ 490)  -3.2 W43-W61 S41-S38
  

    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