Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1073 1680 (N48W19 L=327)   531     99        0 (1040/1644-1115/1703)   8.1 W15-W22 N45-N50
      2 1173 1587 (N39W23 L=331)   924    113        2 (1135/1540-1220/1641) -76.0 W19-W24 N35-N43
      3 1565 1519 (N26W50 L=358)   413    105        0 (1519/1488-1605/1554) -56.3 W48-W52 N23-N29
      4 1091 1482 (N34W13 L=321)   383    121        2 (1061/1429-1110/1524)  74.1 W11-W14 N29-N36
      5 1400 1376 (N21W31 L=339)   359     97        0 (1339/1360-1441/1389) -26.6 W27-W33 N19-N23
      6  165 1144 (N23E70 L=239)   985    168        2 ( 144/1053- 177/1212) -45.0 E76-E66 N17-N26
      7  535 1083 (N16E31 L=277)   980    362        1 ( 396/ 999- 690/1161) -29.7 E41-E20 N09-N22
      8 1713  856 (S16W44 L=352)   551    207        0 (1635/ 794-1770/ 928)  21.0 W37-W50 S18-S12
      9 1487  852 (S12W26 L=334)   671    142        1 (1455/ 791-1526/ 923)  49.4 W23-W29 S14-S07
     10 1796  833 (S20W53 L=  1)  1290    184        1 (1779/ 747-1811/ 921) -71.6 W51-W55 S25-S13
     11  988  793 (S07E06 L=302)   773    194        1 ( 948/ 696-1030/ 873)  55.0 E09-E02 S12-S02
     12 1557  712 (S22W31 L=339)   261     37        1 (1536/ 695-1582/ 732) -45.0 W29-W32 S23-S20
     13 1490  646 (S25W25 L=333)   267     96        0 (1460/ 605-1509/ 690)  51.3 W22-W26 S27-S22
  

    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