Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1242 1694 (N41W10 L=341)   418    109        0 (1193/1666-1297/1716) -20.6 W06-W14 N39-N42
      2 1503 1608 (N38W32 L=  3)  1626    249        4 (1409/1535-1581/1655) -21.0 W23-W37 N33-N40
      3  588 1526 (N23E35 L=296)   505    134        1 ( 561/1466- 615/1569) -81.9 E37-E32 N19-N26
      4  430 1519 (N22E47 L=284)   479     65        0 ( 396/1504- 477/1542)  -7.1 E51-E43 N21-N23
      5 1203 1369 (N17W08 L=339)   382    157        0 (1131/1343-1278/1392) -11.3 W03-W13 N16-N18
      6  974 1357 (N15E06 L=325)   587    216        0 ( 903/1299-1034/1389) -26.6 E09-E01 N11-N16
      7 1841 1296 (N21W60 L= 31)  2130    164        2 (1794/1226-1882/1376) -71.6 W55-W65 N16-N25
      8  743 1309 (N10E20 L=311)   559    158        2 ( 702/1251- 794/1373) -49.4 E23-E15 N06-N13
      9 1085 1060 (S02W03 L=334)   840    195        1 (1038/ 971-1152/1136)  60.9 W00-W06 S07-N02
     10 1417 1001 (S03W24 L=355)   251     70        0 (1398/ 965-1449/1025)  45.0 W23-W26 S05-S01
     11  738  584 (S35E17 L=314)  1812    366        5 ( 604/ 492- 864/ 722)  41.8 E28-E07 S41-S24
     12  378  612 (S35E48 L=283)   409     74        1 ( 346/ 583- 414/ 634)  18.4 E52-E43 S36-S32
     13 1252  291 (S51W32 L=  3)   302     48        0 (1227/ 275-1285/ 305)  21.8 W29-W35 S52-S49
  

    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