Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1108 1798 (N50W42 L= 37)   394     64        0 (1084/1776-1146/1815) -21.8 W38-W44 N48-N51
      2 1651 1554 (N16W61 L= 56)   694     73        2 (1618/1514-1678/1581)  68.2 W58-W64 N13-N18
      3 1176 1512 (N30W25 L= 20)   218     47        2 (1156/1481-1195/1537)  53.1 W23-W26 N27-N31
      4 1440 1378 (N14W35 L= 30)   984    332        5 (1286/1305-1539/1453) -54.5 W28-W40 N07-N22
      5 1074 1266 (N19W09 L=  4)  2367    523        4 ( 909/1114-1267/1438) -70.3 W04-W16 N05-N33
      6 1459 1260 (N07W32 L= 27)   323     85        3 (1443/1218-1478/1305)  45.0 W29-W34 N05-N10
      7  391 1197 (N32E39 L=316)   850    199        2 ( 304/1166- 478/1238) -23.6 E47-E30 N28-N36
      8  293  908 (N17E52 L=303)  1794    328        5 ( 169/ 861- 451/ 958) -18.4 E66-E38 N11-N21
      9  764  904 (N07E18 L=337)   219     61        1 ( 739/ 874- 791/ 928)  33.7 E19-E15 N05-N07
     10 1174  803 (S09W02 L=357)   396    163        0 (1116/ 749-1243/ 846)   6.3 E02-W07 S10-S08
     11 1549  453 (S45W20 L= 15)   629     46        1 (1524/ 423-1577/ 480) -59.0 W17-W23 S47-S42
     12 1475  386 (S48W12 L=  7)   556     65        0 (1445/ 357-1503/ 416) -63.4 W10-W14 S51-S43
     13 1410  328 (S50W05 L=360)   691     67        1 (1384/ 299-1445/ 357)   8.1 W01-W08 S52-S46
     14  738  253 (S33E48 L=307)   525     98        0 ( 692/ 223- 772/ 288) -90.0 E49-E45 S36-S29
  

    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