Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1681 1534 (N29W62 L=196)  2127    192        4 (1634/1455-1724/1607)  63.4 W57-W72 N23-N33
      2 1364 1541 (N34W32 L=166)   573    135        1 (1326/1477-1401/1579)  33.7 W27-W37 N30-N36
      3  986 1403 (N30W01 L=135)   324     90        1 ( 967/1354-1016/1443) -80.5 W00-W02 N26-N32
      4  553 1304 (N27E31 L=103)  2266    458        1 ( 429/1185- 750/1359)   9.1 E40-E15 N19-N30
      5 1432 1300 (N18W30 L=163)   281     72        0 (1414/1262-1448/1335)  68.2 W28-W31 N15-N20
      6 1506 1260 (N14W35 L=168)   487    149        0 (1449/1225-1544/1290) -23.2 W30-W37 N12-N16
      7  225 1215 (N22E62 L= 71)  1501    191        7 ( 187/1141- 263/1288) -60.9 E69-E57 N17-N26
      8  577 1094 (N13E28 L=105)   557    140        3 ( 515/1053- 631/1131) -20.6 E32-E24 N10-N15
      9 1746  835 (S15W50 L=183)   837    119        1 (1712/ 773-1775/ 880)  56.3 W46-W52 S18-S11
     10  399  740 (S08E46 L= 87)   505     94        1 ( 379/ 684- 421/ 774)  63.4 E47-E43 S11-S05
     11 1257  502 (S31W11 L=144)   373     97        0 (1210/ 488-1308/ 516)   0.0 W07-W14 S32-S29
     12  577  406 (S32E43 L= 91)   748    159        1 ( 548/ 346- 622/ 481)  79.7 E44-E39 S37-S26
     13 1007  425 (S34E08 L=125)   387    113        0 ( 950/ 411-1067/ 438) -14.0 E12-E03 S35-S32
     14 1362  274 (S53W24 L=157)   407     51        0 (1341/ 257-1391/ 297) -32.0 W20-W28 S56-S50
     15 1041  195 (S57E12 L=121)   683     95        0 ( 995/ 179-1098/ 209)   0.0 E17-E05 S58-S54
  

    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