Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  445 1578 (N31E55 L=  1)   975    152        1 ( 426/1508- 472/1642) -45.0 E61-E51 N26-N35
      2  715 1450 (N25E26 L= 30)  1319    386        0 ( 617/1378- 768/1585) -86.2 E31-E21 N19-N34
      3 1594 1395 (N30W39 L= 95)  2891    599        3 (1356/1210-1736/1526) -29.5 W20-W50 N18-N37
      4 1655 1179 (N16W42 L= 98)   531    144        0 (1630/1103-1669/1239) -83.7 W40-W43 N11-N20
      5 1509 1168 (N15W31 L= 86)   462    140        0 (1475/1132-1556/1218) -45.0 W28-W34 N12-N17
      6 1771 1184 (N17W54 L=109)   500     79        2 (1747/1136-1792/1213)  68.2 W51-W56 N14-N19
      7  194  955 (S11E63 L=353)   887    113        2 ( 155/ 922- 238/ 995) -21.8 E68-E57 S12-S08
      8  599  808 (S16E26 L= 30)   279     74        1 ( 567/ 787- 638/ 826)  31.0 E28-E22 S17-S14
      9  564  736 (S21E28 L= 27)   274     68        0 ( 549/ 697- 579/ 771)  90.0 E29-E27 S23-S18
     10 1575  638 (S18W43 L= 98)   901    179        1 (1505/ 580-1645/ 687)  37.9 W38-W47 S22-S14
     11  658  649 (S26E22 L= 34)   267     75        0 ( 623/ 627- 687/ 669) -21.8 E24-E19 S26-S24
     12 1710  648 (S16W55 L=110)   537     30        1 (1684/ 625-1734/ 668) -18.4 W51-W57 S17-S14
     13 1748  541 (S23W67 L=122)   957     98        2 (1712/ 507-1782/ 576)  39.8 W62-W70 S25-S20
     14 1403  493 (S29W34 L= 89)   436     95        1 (1357/ 472-1453/ 518)  23.2 W30-W37 S30-S27
  

    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