Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  891 1502 (N29E16 L= 51)  1346    413        3 ( 743/1373-1020/1629) -26.6 E30-E04 N21-N36
      2 1216 1596 (N40W06 L= 73)   294     44        1 (1191/1577-1249/1614) -11.3 W03-W08 N38-N41
      3  565 1417 (N19E36 L= 31)  1922    455        6 ( 478/1261- 626/1539) -39.8 E47-E28 N09-N25
      4 1278 1482 (N33W12 L= 79)   279     49        0 (1255/1450-1297/1513) -63.4 W09-W13 N30-N35
      5 1554 1242 (N20W33 L=100)   521    172        0 (1525/1161-1584/1325) -73.3 W30-W35 N15-N25
      6 1351 1240 (N18W18 L= 85)   775    288        1 (1268/1169-1399/1310)  53.1 W12-W21 N13-N22
      7 1792 1065 (N12W54 L=121)  1218    203        3 (1750/ 973-1836/1138)  74.7 W49-W58 N06-N17
      8  902 1110 (N04E08 L= 59)   377    142        0 ( 828/1095- 970/1127)  14.0 E12-E04 N02-N06
      9  305  971 (S12E49 L= 18)  1330    454        1 ( 187/ 941- 480/1015)   6.1 E62-E34 S13-S08
     10 1848  990 (N08W61 L=129)   413    155        1 (1808/ 976-1889/1008)   0.0 W56-W67 N07-N09
     11 1608  709 (S11W44 L=111)   285    116        1 (1571/ 692-1652/ 737)   0.0 W40-W47 S12-S10
     12 1478  398 (S34W45 L=112)   706    121        1 (1438/ 376-1525/ 426)   0.0 W41-W50 S35-S31
     13 1307  390 (S37W32 L= 99)   963    161        3 (1233/ 363-1375/ 420)  24.0 W25-W37 S39-S33
     14 1128  388 (S40W18 L= 85)   282     43        0 (1092/ 376-1157/ 403)  21.8 W15-W20 S40-S38
  

    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