Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1158 1634 (N35W07 L=293)   601     96        0 (1137/1581-1179/1686)  76.0 W05-W08 N31-N39
      2 1342 1626 (N36W21 L=307)   346     51        1 (1307/1599-1369/1643)   9.5 W17-W23 N33-N37
      3 1561 1475 (N26W36 L=322)   891    202        0 (1485/1422-1650/1529) -22.6 W30-W42 N23-N29
      4 1832 1294 (N17W58 L=345)   854    140        4 (1808/1259-1864/1349) -45.0 W55-W61 N14-N20
      5 1791 1256 (N14W53 L=339)   850    151        3 (1729/1205-1845/1304) -20.0 W47-W58 N11-N16
      6  249 1274 (N09E56 L=231)   389     51        0 ( 222/1257- 280/1291)  -9.5 E58-E52 N08-N10
      7 1761 1011 (S01W49 L=336)   672    174        0 (1741/ 940-1787/1097) -76.0 W47-W52 S04-N04
      8  162  880 (S14E65 L=222)   994     99        0 ( 132/ 835- 182/ 938)  50.2 E70-E61 S16-S10
      9 1851  792 (S13W63 L=349)   881    106        3 (1828/ 736-1884/ 847) -50.2 W58-W67 S15-S09
     10 1181  615 (S28W12 L=299)  1840    472        0 (1091/ 490-1305/ 735)  45.0 W06-W20 S36-S20
     11  340  570 (S33E54 L=233)  1053    210        0 ( 271/ 510- 418/ 603)   9.9 E68-E45 S37-S31
     12 1755  562 (S27W62 L=348)  1098    137        0 (1684/ 540-1806/ 588)   8.1 W53-W68 S28-S25
     13 1338  546 (S32W25 L=311)   501     94        1 (1287/ 522-1383/ 582)  18.4 W21-W27 S33-S29
     14  745  338 (S50E22 L=264)  2183    380        3 ( 557/ 309- 904/ 381)  -1.7 E42-E06 S53-S46
     15 1546  353 (S44W54 L=340)  2676    276        3 (1416/ 322-1683/ 380)   3.2 W38-W75 S45-S41
  

    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