Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1603 1707 (N28W72 L= 43)   857     67        0 (1571/1681-1640/1732) -51.3 W68-W75 N25-N30
      2 1527 1648 (N28W57 L= 28)   764     85        1 (1492/1610-1571/1688)  80.5 W54-W60 N24-N30
      3  491 1613 (N58E33 L=299)   366     47        1 ( 465/1592- 518/1629) -20.6 E36-E28 N56-N59
      4 1061 1565 (N38W19 L=350)   461    109        1 (1016/1525-1099/1589) -71.6 W16-W21 N34-N40
      5 1641 1542 (N19W58 L= 30)  2080    347        5 (1473/1501-1763/1575) -21.4 W44-W73 N13-N24
      6  287 1378 (N44E54 L=278)   783    101        0 ( 248/1354- 334/1398)   0.0 E59-E46 N42-N46
      7  477 1311 (N36E31 L=300)   313     67        1 ( 451/1282- 508/1333)  26.6 E33-E28 N34-N37
      8 1475 1258 (N09W32 L=  4)   336    154        0 (1431/1185-1499/1317) -90.0 W31-W33 N04-N13
      9 1361  832 (S12W15 L=346)   990    303        3 (1315/ 712-1400/ 980)  52.4 W09-W19 S17-S03
     10  706  703 (S04E26 L=305)   348    107        1 ( 684/ 654- 733/ 759)  45.0 E28-E23 S06-S01
     11 1055  384 (S32E16 L=316)  1723    349        8 ( 907/ 288-1142/ 494)  21.4 E30-E07 S37-S26
     12  756  393 (S25E34 L=297)   343    108        0 ( 722/ 361- 787/ 441)  26.6 E38-E30 S26-S21
     13  551  405 (S20E49 L=283)   509     85        2 ( 518/ 379- 574/ 437)  33.7 E52-E45 S21-S17
  

    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