Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  992 1704 (N33E21 L=312)   687    134        1 ( 945/1647-1045/1746) -26.6 E25-E15 N30-N35
      2 1042 1465 (N18E10 L=324)   345    143        0 ( 988/1438-1131/1487)  11.3 E13-E03 N17-N19
      3  190 1405 (S00E72 L=261)   657     65        1 ( 172/1386- 219/1440) -16.7 E78-E66 S01-N02
      4 1828 1226 (N26W50 L= 24)   342     47        0 (1807/1197-1843/1247) -14.0 W47-W52 N24-N27
      5 1187 1142 (N03W06 L=340)   621    241        0 (1055/1117-1292/1176)  32.5 W00-W11 N00-N07
      6  474 1123 (S13E35 L=298)   252     31        1 ( 454/1097- 490/1148) -56.3 E37-E34 S14-S11
      7  388  931 (S26E39 L=294)   379     78        0 ( 351/ 899- 425/ 957)  -8.1 E42-E35 S27-S24
      8 1694  828 (S00W46 L= 19)   566    108        1 (1646/ 807-1761/ 852)   5.7 W42-W52 S02-N00
      9  981  688 (S27W06 L=339)   357    162        0 ( 902/ 668-1059/ 716)  10.3 W00-W11 S28-S25
     10  256  663 (S45E57 L=277)  1339    191        1 ( 189/ 623- 345/ 712)  -2.5 E69-E44 S46-S42
     11 1616  642 (S12W47 L= 21)   285     40        0 (1591/ 616-1640/ 663)  56.3 W46-W48 S14-S11
     12  454  602 (S45E32 L=301)   273     67        0 ( 427/ 565- 488/ 634) -38.7 E35-E28 S47-S43
     13 1335  555 (S25W32 L=  6)   517     82        0 (1286/ 541-1390/ 573)   7.1 W28-W36 S26-S23
     14 1569  429 (S25W57 L= 30)  1881    330        4 (1420/ 382-1731/ 477)  37.3 W47-W70 S32-S16
     15 1293  374 (S37W40 L= 13)   318     42        1 (1261/ 361-1322/ 389)  21.8 W37-W42 S38-S35
  

    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