Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  974 1672 (N35E23 L= 75)  1117    227        2 ( 912/1576-1008/1751) -32.0 E32-E16 N28-N39
      2  388 1503 (N10E57 L= 41)   370     86        1 ( 369/1459- 414/1542) -63.4 E58-E55 N06-N12
      3 1645 1476 (N42W34 L=132)   396     53        1 (1620/1459-1675/1497)   9.5 W31-W37 N40-N43
      4  643 1456 (N12E35 L= 64)   276    131        0 ( 601/1440- 700/1487)   0.0 E38-E30 N11-N13
      5  832 1380 (N12E20 L= 78)   259     72        3 ( 800/1358- 866/1403) -11.3 E22-E17 N11-N13
      6 1780 1332 (N36W49 L=147)  1120    150        4 (1738/1278-1817/1387) -35.5 W44-W54 N32-N38
      7 1258 1282 (N17W07 L=105)   678    207        3 (1215/1207-1285/1372)  90.0 W06-W09 N11-N23
      8  251 1290 (S05E61 L= 37)   593    106        0 ( 226/1238- 279/1335)  80.5 E62-E58 S08-S02
      9 1531 1173 (N18W27 L=125)   834    182        1 (1497/1091-1567/1252) -41.2 W23-W31 N13-N21
     10 1668  981 (N11W41 L=139)   493     82        1 (1635/ 949-1704/1013)  45.0 W39-W44 N07-N12
     11 1711  898 (N07W47 L=145)   350    133        0 (1693/ 836-1732/ 957)  90.0 W46-W47 N03-N10
     12  269  812 (S34E52 L= 47)   591     98        1 ( 224/ 790- 315/ 843)   5.2 E57-E46 S34-S31
     13 1506  804 (S04W34 L=133)   267     73        0 (1492/ 767-1520/ 836) -53.1 W33-W36 S05-S01
     14 1545  529 (S18W49 L=147)   355     96        3 (1500/ 502-1583/ 552)  31.0 W45-W50 S19-S15
     15 1186  483 (S31W27 L=125)   499    104        1 (1166/ 423-1207/ 522) -45.0 W23-W29 S34-S28
  

    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