Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1096 1617 (N36W21 L=175)  1059    179        0 (1021/1563-1187/1652)  -4.4 W14-W27 N33-N37
      2  620 1578 (N46E16 L=139)   280     97        1 ( 597/1553- 649/1612) -51.3 E17-E13 N44-N49
      3 1756 1377 (N06W58 L=213)   936    104        1 (1706/1332-1799/1417) -45.0 W54-W61 N02-N08
      4  213 1258 (N33E54 L=101)  1423    471        4 ( 120/1211- 291/1318) -21.8 E65-E45 N29-N38
      5 1749 1175 (S05W50 L=205)   328    118        1 (1715/1148-1786/1199)   0.0 W46-W53 S06-S04
      6  429 1134 (N21E35 L=120)   283     47        0 ( 401/1117- 461/1149) -11.3 E37-E32 N20-N22
      7 1290  963 (S06W14 L=168)  1190    327        3 (1210/ 792-1355/1115)  43.0 W05-W20 S14-N01
      8 1774 1082 (S11W50 L=204)   323     70        1 (1743/1057-1799/1101) -36.9 W47-W52 S12-S09
      9  469  939 (N09E35 L=119)   259     83        2 ( 454/ 901- 487/ 983)  63.4 E36-E34 N07-N11
     10 1599  778 (S25W31 L=185)   235     52        1 (1575/ 750-1619/ 806)  56.3 W28-W32 S26-S23
     11 1123  654 (S21E02 L=152)   231     68        0 (1089/ 632-1160/ 687) -53.1 E03-W00 S22-S17
     12  907  440 (S29E22 L=133)   785    177        1 ( 881/ 359- 930/ 517)  59.0 E25-E19 S34-S23
     13 1318  458 (S39W06 L=160)   461    102        0 (1269/ 425-1353/ 504)  29.7 W01-W08 S40-S35
     14  523  385 (S24E51 L=104)  1273    323        4 ( 473/ 286- 559/ 495)  61.9 E56-E46 S31-S16
  

    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