Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1318 1648 (N36W27 L=  9)  5320    884       10 ( 998/1409-1655/1806) -34.9 W04-W47 N18-N52
      2 1725 1611 (N32W68 L= 49)   833     88        0 (1691/1574-1757/1641) -59.0 W64-W72 N29-N34
      3  559 1591 (N38E33 L=309)  1623    383        3 ( 404/1556- 735/1635) -13.2 E51-E17 N33-N42
      4  864 1571 (N34E08 L=334)   399     76        1 ( 816/1545- 902/1587) -23.2 E11-E04 N31-N35
      5 1165 1416 (N21W12 L=353)   417    152        0 (1118/1389-1230/1465) -33.7 W08-W15 N19-N24
      6  447 1368 (N23E38 L=303)  2229    444        2 ( 280/1219- 555/1448) -16.5 E55-E28 N13-N29
      7  338 1272 (N18E46 L=295)   372    153        2 ( 312/1215- 394/1319)  56.3 E48-E41 N14-N20
      8 1638 1254 (N09W42 L= 23)   307     40        1 (1611/1232-1663/1279) -14.0 W39-W43 N07-N10
      9 1155 1224 (N09W09 L=350)   587    243        2 (1033/1188-1251/1259)  -8.1 W01-W15 N06-N12
     10 1408 1015 (S05W23 L=  5)   551    123        1 (1372/ 961-1451/1070)  50.2 W20-W26 S07-S01
     11  743  850 (S10E18 L=323)   935    278        0 ( 676/ 738- 815/ 948)  47.7 E23-E13 S16-S05
     12 1306  807 (S17W16 L=358)   592    211        0 (1272/ 709-1331/ 903)  76.0 W14-W18 S22-S10
     13 1110  676 (S24W03 L=345)   432    171        1 (1072/ 618-1141/ 732)  66.8 W00-W05 S27-S19
     14  854  468 (S36E17 L=324)   480    124        0 ( 791/ 430- 909/ 507)  21.8 E22-E12 S38-S33
     15  557  389 (S39E45 L=296)   984    202        1 ( 497/ 362- 643/ 455) -31.0 E50-E37 S41-S33
  

    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