Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  542 1727 (N25E57 L=272)  2237    369        5 ( 504/1644- 595/1810) -38.2 E62-E48 N19-N31
      2  490 1605 (N16E53 L=276)  1699    338        4 ( 461/1499- 519/1692) -40.6 E60-E45 N09-N21
      3  363 1571 (N11E63 L=266)   700    134        0 ( 340/1518- 395/1627) -69.4 E65-E59 N07-N15
      4 1604 1588 (N49W27 L=356)   804    142        1 (1565/1555-1637/1625)  41.6 W22-W31 N45-N53
      5  292 1512 (N06E68 L=261)   701    216        0 ( 271/1480- 324/1555) -17.1 E75-E61 N04-N08
      6 1367 1225 (N16W14 L=343)   609    139        0 (1333/1152-1420/1292) -29.1 W10-W19 N13-N19
      7  157 1127 (S19E65 L=264)   729    242        2 ( 113/1100- 202/1155)  10.3 E70-E59 S21-S16
      8  305 1132 (S16E50 L=279)   332     46        1 ( 281/1109- 322/1154)   0.0 E51-E47 S17-S14
      9 1880  820 (N09W67 L= 36)   594    109        1 (1854/ 795-1910/ 841)  23.2 W63-W71 N07-N11
     10 1265  777 (S12W20 L=349)   220     42        0 (1240/ 757-1298/ 792)  45.0 W19-W22 S13-S10
     11 1511  668 (S11W40 L=  8)   461     93        2 (1465/ 635-1544/ 712)  63.4 W37-W41 S13-S07
     12 1699  581 (S09W59 L= 28)   870    149        2 (1651/ 546-1746/ 616)  26.6 W54-W63 S11-S06
     13 1562  352 (S26W61 L= 30)  1368    255        2 (1482/ 336-1642/ 373)  30.3 W54-W68 S28-S21
  

    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