Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  811 1788 (N61W18 L= 18)   601     45        2 ( 781/1759- 842/1816) -38.7 W14-W20 N58-N64
      2 1221 1774 (N43W46 L= 47)   803    149        0 (1143/1745-1286/1795) -58.0 W42-W49 N39-N47
      3  603 1653 (N58E13 L=348)  1315    228        2 ( 493/1594- 680/1710)   4.6 E27-E02 N55-N60
      4 1364 1601 (N28W42 L= 42)   734    173        0 (1294/1581-1446/1622) -37.9 W37-W47 N24-N31
      5  417 1535 (N55E37 L=324)   560     69        1 ( 392/1493- 441/1566)  59.0 E40-E33 N51-N56
      6 1440 1421 (N16W37 L= 37)   629    243        0 (1321/1378-1546/1452) -42.5 W30-W42 N10-N21
      7  413 1166 (N29E36 L=324)   372    124        0 ( 362/1140- 469/1194)   0.0 E41-E31 N28-N30
      8 1578  684 (S30W25 L= 26)   618    164        0 (1493/ 639-1640/ 710)  -4.8 W18-W30 S31-S27
      9 1065  576 (S20E10 L=350)   371    121        0 (1051/ 522-1087/ 641)  69.4 E11-E08 S24-S16
     10 1426  421 (S43W09 L=  9)  1669    285        3 (1307/ 371-1546/ 493)  -5.7 E01-W20 S45-S39
     11  853  384 (S27E31 L=330)   380    133        1 ( 795/ 355- 896/ 431)  11.3 E35-E25 S28-S24
     12 1039  404 (S31E18 L=342)   266     54        0 (1016/ 377-1061/ 430)  31.0 E20-E15 S32-S29
     13  575  292 (S26E58 L=302)  2138    235        3 ( 471/ 261- 689/ 326) -19.3 E73-E49 S31-S23
     14 1051  255 (S43E26 L=335)   834    123        1 (1018/ 209-1091/ 314)  76.0 E29-E23 S48-S36
  

    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