Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  971 1662 (N34E14 L=308)   488    156        0 ( 898/1618-1030/1706) -22.6 E20-E08 N31-N36
      2  846 1515 (N22E18 L=304)   658    180        0 ( 799/1428- 879/1592) -48.0 E23-E14 N16-N26
      3 1471 1297 (N17W24 L=346)   940    213        1 (1388/1229-1549/1373) -26.6 W18-W30 N13-N20
      4 1849 1268 (N23W58 L= 21)   976    108        2 (1821/1228-1887/1313) -45.0 W54-W64 N20-N25
      5 1793 1248 (N20W51 L= 13)   444     88        0 (1778/1213-1810/1294) -76.0 W49-W53 N18-N22
      6  150 1026 (S14E67 L=255)  1326    182        3 ( 104/ 951- 189/1077)  36.0 E75-E61 S18-S10
      7  252 1043 (S13E54 L=268)   425     67        1 ( 225/1003- 275/1077)  59.0 E56-E51 S15-S10
      8  362  950 (S17E44 L=279)   738    213        0 ( 294/ 911- 476/ 974)  18.4 E49-E34 S20-S15
      9  158  838 (S25E68 L=254)   673     76        1 ( 131/ 801- 189/ 867)  21.8 E74-E63 S27-S23
     10 1017  691 (S26W04 L=326)   907    305        0 ( 895/ 603-1079/ 811)  63.4 E02-W07 S33-S17
     11 1411  608 (S25W33 L=355)   231     77        0 (1373/ 585-1445/ 632)  45.0 W30-W34 S26-S22
     12 1490  407 (S36W49 L= 11)   417     64        0 (1458/ 384-1521/ 433)  53.1 W47-W51 S37-S33
     13  516  323 (S60E47 L=276)   727     56        1 ( 491/ 301- 549/ 347)  14.9 E54-E39 S62-S58
  

    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