Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  204 1367 (N25E71 L=331)   870     99        0 ( 176/1324- 240/1406) -11.9 E82-E62 N23-N27
      2 1574 1331 (N20W40 L= 82)   470    124        0 (1543/1285-1611/1391) -66.8 W38-W42 N17-N24
      3  385 1278 (N21E45 L=357)   936    192        2 ( 302/1250- 459/1319)  -3.8 E53-E38 N18-N23
      4 1828 1270 (N14W63 L=105)   915    100        1 (1798/1231-1849/1308) -68.2 W60-W66 N11-N16
      5  669 1164 (N13E22 L= 20)   327    114        0 ( 625/1149- 735/1178)  -7.1 E25-E17 N12-N14
      6 1374 1046 (N04W22 L= 64)   435    152        0 (1317/1004-1438/1094)  32.0 W18-W26 N01-N06
      7 1687 1024 (N01W45 L= 86)   379    122        0 (1675/ 960-1699/1086) -90.0 W44-W45 S02-N04
      8  473  970 (N02E36 L=  6)   508    218        0 ( 401/ 914- 551/1023) -24.4 E41-E30 S01-N04
      9 1388  831 (S09W22 L= 64)  1302    468        0 (1229/ 710-1475/ 993)  47.0 W12-W28 S16-N00
     10 1026  916 (S02E00 L= 42)   280     94        0 ( 989/ 881-1056/ 956)  53.1 E02-W01 S04-N00
     11 1841  929 (S06W60 L=102)   554     59        0 (1808/ 909-1877/ 949)   7.1 W56-W64 S07-S05
     12  658  844 (S06E24 L= 18)   528    184        0 ( 589/ 811- 704/ 907)  35.5 E28-E20 S08-S02
     13  931  731 (S14E07 L= 35)   225     93        0 ( 899/ 701- 968/ 770) -45.0 E08-E04 S15-S11
     14  354  652 (S18E50 L=351)   346     55        1 ( 333/ 622- 374/ 680) -76.0 E51-E47 S20-S16
     15  420  651 (S18E44 L=358)   299     56        1 ( 399/ 622- 445/ 672)  38.7 E46-E41 S20-S16
  

    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