Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1249 1763 (N56W08 L=167)   576     61        2 (1224/1735-1279/1795)  54.5 W05-W11 N52-N60
      2 1410 1741 (N57W28 L=187)   400     34        0 (1388/1721-1428/1759) -26.6 W24-W30 N55-N59
      3 1520 1708 (N56W42 L=201)   464     32        0 (1503/1685-1543/1728)  21.8 W37-W47 N53-N58
      4  649 1682 (N38E43 L=116)   502    115        0 ( 599/1647- 686/1706) -11.3 E48-E38 N35-N39
      5  344 1460 (N18E59 L=100)  1984    319        3 ( 259/1349- 435/1581)  76.8 E63-E55 N10-N27
      6  860 1524 (N30E19 L=140)   525    103        2 ( 828/1465- 882/1571) -60.3 E21-E15 N26-N33
      7  262 1472 (N18E71 L= 88)  1328     99        4 ( 232/1436- 301/1507)  29.7 E77-E64 N15-N20
      8 1561 1405 (N32W34 L=193)   963    258        2 (1459/1337-1656/1459) -17.4 W25-W42 N28-N34
      9  401 1405 (N16E50 L=109)   766    104        2 ( 367/1360- 439/1445)  51.3 E52-E47 N13-N18
     10  878  936 (S06E08 L=151)   411     92        0 ( 842/ 910- 914/ 970) -31.0 E10-E05 S08-S04
     11  191  896 (S18E63 L= 96)   840     70        1 ( 163/ 862- 221/ 932)  29.1 E68-E58 S20-S15
     12 1284  539 (S26W25 L=184)   465    134        0 (1222/ 508-1332/ 581)  45.0 W21-W27 S29-S22
     13 1560  521 (S24W47 L=206)   480     43        1 (1535/ 492-1587/ 549)  56.3 W45-W49 S26-S22
     14  444  442 (S47E45 L=114)   773     92        0 ( 401/ 421- 482/ 464)   5.2 E50-E39 S49-S44
  

    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