Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  858 1824 (N62W25 L=318)   811    106        1 ( 804/1800- 918/1846)  -8.1 W18-W32 N58-N64
      2  704 1765 (N63W04 L=296)   505     70        0 ( 684/1726- 728/1798)  32.0 W00-W08 N60-N66
      3 1175 1735 (N42W38 L=331)   974    191        3 (1091/1681-1266/1777)  -6.3 W29-W47 N39-N43
      4  383 1602 (N61E46 L=247)  1239    184        1 ( 305/1551- 461/1651)   6.6 E60-E32 N58-N63
      5 1480 1609 (N24W49 L=342)   456    106        0 (1451/1569-1523/1635)  -8.1 W45-W52 N22-N25
      6  523 1174 (N27E27 L=266)  1018    290        1 ( 392/1121- 646/1224) -31.4 E37-E19 N21-N32
      7 1808  947 (S21W49 L=342)  3717    469        5 (1692/ 768-1898/1144)  33.7 W35-W64 S28-S12
      8  283  899 (N16E52 L=241)   449    140        1 ( 247/ 867- 344/ 945) -36.9 E54-E46 N13-N19
      9 1367  881 (S11W15 L=308)   447     69        1 (1344/ 835-1384/ 925)  78.7 W13-W16 S13-S08
     10  406  850 (N11E42 L=250)   273     40        1 ( 389/ 828- 427/ 875)  45.0 E43-E40 N09-N12
     11 1453  583 (S31W14 L=307)   769    172        1 (1384/ 541-1529/ 645)   5.2 W09-W20 S33-S29
     12  607  583 (S08E37 L=256)   234     51        1 ( 585/ 558- 635/ 605)  14.0 E38-E34 S09-S07
     13 1192  402 (S35E08 L=284)  1494    274        1 (1078/ 347-1319/ 471)   3.0 E17-W02 S37-S32
     14  606  400 (S20E46 L=247)   297     34        1 ( 579/ 380- 626/ 418) -63.4 E47-E43 S20-S18
     15  813  168 (S42E51 L=241)  2523    192        6 ( 742/ 120- 893/ 235)  12.3 E70-E38 S45-S37
  

    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