Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  684 1476 (N31E26 L= 39)   378     98        0 ( 639/1459- 728/1489)   0.0 E30-E22 N29-N31
      2 1732 1336 (N23W54 L=119)   390    102        0 (1687/1313-1781/1352) -11.3 W49-W59 N21-N23
      3 1338 1327 (N23W21 L= 85)   260     93        0 (1297/1309-1375/1340)  -9.5 W17-W23 N21-N23
      4 1800 1276 (N19W60 L=125)   435     63        1 (1785/1239-1814/1306)  38.7 W57-W63 N16-N20
      5  921 1253 (N17E07 L= 58)   443    111        1 ( 865/1226- 974/1270)  15.9 E10-E03 N15-N18
      6 1661 1212 (N15W44 L=109)   397    120        0 (1601/1188-1704/1234)  -6.3 W39-W48 N13-N16
      7  501  916 (S05E34 L= 31)   256     44        0 ( 482/ 890- 522/ 947) -71.6 E35-E32 S06-S03
      8 1604  836 (S08W39 L=104)   286     59        1 (1585/ 804-1622/ 864)  56.3 W37-W40 S09-S06
      9  318  814 (S12E50 L= 15)   322     69        2 ( 300/ 781- 333/ 844)  63.4 E51-E48 S14-S10
     10 1788  726 (S15W59 L=124)  1503    252        3 (1734/ 638-1843/ 821)  57.5 W55-W64 S21-S09
     11  271  760 (S16E56 L=  9)   594    103        1 ( 250/ 712- 294/ 806)  56.3 E60-E53 S19-S13
     12  577  623 (S24E31 L= 34)   564     97        0 ( 537/ 581- 615/ 665) -51.3 E33-E28 S26-S20
     13 1260  493 (S31W18 L= 83)   584     98        2 (1233/ 441-1283/ 546) -76.0 W16-W20 S35-S27
     14 1284  366 (S41W24 L= 88)   411     53        1 (1258/ 340-1307/ 397)  68.2 W21-W25 S43-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