Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  640 1720 (N58E13 L=245)  3926    585        6 ( 398/1603- 851/1830)   4.8 E45-W15 N54-N62
      2 1554 1669 (N27W58 L=316)   922     93        4 (1527/1631-1586/1710)  21.8 W54-W65 N25-N29
      3 1636 1593 (N21W60 L=318)  4211    322       17 (1531/1493-1721/1689)  81.3 W49-W73 N13-N26
      4 1205 1535 (N28W24 L=283)   621    208        1 (1128/1459-1273/1608) -76.0 W22-W26 N22-N34
      5 1536 1525 (N20W47 L=305)   745    213        1 (1472/1443-1590/1595) -90.0 W43-W49 N13-N24
      6  281 1382 (N40E52 L=207)  1177    177        2 ( 253/1295- 310/1438) -84.3 E56-E47 N34-N44
      7 1697 1308 (N04W50 L=308)   592    113        1 (1652/1282-1758/1343) -35.5 W46-W54 N01-N06
      8  583  787 (S02E31 L=227)   396     79        1 ( 562/ 747- 602/ 823)  71.6 E32-E29 S03-N00
      9 1627  759 (S26W33 L=291)   253     48        1 (1605/ 733-1646/ 781) -63.4 W31-W35 S28-S24
     10  884  751 (S10E14 L=244)   208     85        0 ( 851/ 712- 918/ 778)  21.8 E16-E11 S11-S08
     11 1360  545 (S34W11 L=269)  1854    489        2 (1162/ 436-1516/ 700)  10.1 E04-W24 S37-S27
     12 1711  651 (S36W41 L=300)   326     41        1 (1686/ 625-1729/ 670)  63.4 W38-W43 S37-S34
     13 1506  436 (S46W22 L=280)   795    158        1 (1446/ 390-1571/ 496)  14.0 W15-W28 S49-S43
     14  401  414 (S20E63 L=195)  2196    175        2 ( 339/ 375- 486/ 457)  -2.4 E79-E55 S23-S17
     15 1081  157 (S58E30 L=228)   576     69        1 (1044/ 141-1115/ 181) -31.0 E34-E25 S60-S55
  

    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