Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1160 1758 (N43E18 L=198)   635    186        0 (1095/1683-1208/1824) -25.2 E27-E10 N38-N46
      2  310 1451 (N00E62 L=154)  1079     81        2 ( 282/1405- 341/1486) -76.0 E67-E57 S02-N02
      3 1153 1389 (N18E03 L=213)   719    159        1 (1088/1329-1214/1437) -18.4 E08-W01 N15-N19
      4  346 1351 (S05E53 L=163)   585     63        1 ( 321/1315- 370/1384)  78.7 E54-E50 S07-S02
      5  200 1074 (S24E61 L=155)   619     70        1 ( 180/1041- 221/1113)  76.0 E64-E58 S25-S21
      6  751  925 (S19E13 L=203)  1081    424        0 ( 561/ 827- 915/ 979)  41.8 E23-E04 S29-S12
      7  384  817 (S35E38 L=178)   742    181        1 ( 350/ 731- 439/ 877)  70.0 E41-E33 S41-S30
      8  872  765 (S25E01 L=215)   562    161        0 ( 804/ 724- 958/ 793)  48.8 E04-W03 S28-S20
      9  960  638 (S30W08 L=224)   983    300        0 ( 805/ 618-1080/ 666)  29.4 E01-W15 S34-S25
     10  590  593 (S44E16 L=199)   276     52        0 ( 562/ 578- 623/ 611)  31.0 E18-E13 S45-S42
     11 1247  511 (S28W31 L=247)   400    137        0 (1193/ 493-1303/ 538)   7.1 W26-W34 S28-S25
     12 1555  473 (S19W54 L=270)  1023    158        1 (1482/ 430-1625/ 513)  56.3 W50-W57 S23-S14
     13  373  462 (S62E48 L=168)   950    114        1 ( 318/ 437- 424/ 493)   2.5 E60-E37 S63-S59
  

    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