Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  600 1758 (N68E36 L=195)   507     67        0 ( 578/1733- 630/1775)   7.1 E41-E28 N65-N69
      2  948 1607 (N45W07 L=238)   622    119        2 ( 896/1577-1007/1628) -26.6 W03-W12 N42-N47
      3 1735 1544 (N21W72 L=303)   826     74        1 (1715/1508-1763/1574)  18.4 W67-W78 N19-N22
      4 1590 1403 (N18W47 L=278)  1621    411        1 (1426/1342-1776/1452) -27.4 W35-W62 N09-N23
      5 1301 1309 (N18W23 L=254)   214     89        1 (1276/1268-1317/1351)  53.1 W20-W24 N16-N20
      6  476 1197 (N25E35 L=196)  1715    358        3 ( 367/1060- 528/1299) -72.6 E44-E30 N16-N32
      7  636 1200 (N23E22 L=209)   255    101        0 ( 599/1169- 687/1236) -45.0 E24-E18 N20-N26
      8 1592 1141 (N03W38 L=269)   563    136        2 (1571/1079-1615/1201)  71.6 W35-W40 N00-N06
      9 1290 1149 (N09W18 L=249)   250    142        0 (1235/1127-1350/1168) -15.9 W14-W21 N07-N10
     10  294  926 (N11E53 L=178)   471    100        1 ( 270/ 891- 338/ 958)  15.9 E55-E48 N08-N12
     11  349  897 (N08E48 L=183)   279     63        1 ( 324/ 874- 375/ 931)  45.0 E50-E45 N07-N10
     12  395  675 (S06E49 L=182)   404    109        1 ( 365/ 643- 448/ 712) -45.0 E51-E45 S08-S03
     13  506  497 (S18E47 L=184)   345     64        0 ( 485/ 464- 532/ 526)  26.6 E49-E43 S20-S16
     14  875  393 (S31E23 L=208)  1204    336        1 ( 767/ 300- 985/ 507)  24.6 E36-E12 S37-S24
     15  654  377 (S29E41 L=190)   357    100        0 ( 628/ 331- 678/ 419)  31.0 E46-E36 S32-S26
  

    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