Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  872 1815 (N52E33 L=223)   573     80        1 ( 829/1794- 914/1831)  38.7 E36-E29 N50-N54
      2  265 1505 (N19E69 L=187)   757    144        2 ( 242/1487- 294/1525)   7.1 E73-E64 N17-N19
      3  474 1447 (N18E45 L=211)   618    172        2 ( 449/1389- 499/1499) -45.0 E48-E40 N14-N21
      4  607 1290 (N10E30 L=225)   216     50        1 ( 580/1266- 626/1308) -18.4 E32-E29 N09-N11
      5 1376 1230 (N18W19 L=275)   267    107        0 (1323/1185-1413/1259) -23.2 W15-W22 N15-N19
      6 1103 1210 (N12W02 L=258)   481    206        1 ( 997/1187-1194/1243)   0.0 E04-W08 N11-N13
      7 1210  960 (S01W12 L=268)  1148    317        1 (1142/ 833-1311/1097) -63.4 W07-W20 S07-N07
      8  300 1006 (S11E50 L=206)   850    152        1 ( 283/ 927- 317/1082) -77.5 E51-E48 S15-S06
      9  225  885 (S20E57 L=199)   421    112        0 ( 197/ 849- 256/ 929) -45.0 E59-E53 S21-S16
     10  656  909 (S12E21 L=235)   463    115        3 ( 603/ 888- 714/ 927)  23.2 E24-E17 S13-S10
     11  946  842 (S12E02 L=254)   519    224        0 ( 894/ 756-1037/ 904)  56.3 E04-W02 S17-S07
     12 1299  717 (S15W22 L=278)  1030    274        4 (1216/ 595-1363/ 808)  71.6 W18-W24 S23-S08
     13 1008  768 (S16W03 L=259)   226     90        1 ( 977/ 747-1059/ 786)  21.8 W00-W05 S17-S14
     14 1107  526 (S30W14 L=270)   529    121        1 (1049/ 501-1176/ 556)  35.5 W09-W18 S32-S27
  

    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