Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1563 1533 (N17W50 L=107)   634    103        2 (1511/1502-1614/1566) -50.2 W48-W53 N14-N20
      2 1318 1481 (N22W32 L= 88)  1856    405        2 (1134/1387-1483/1536) -52.1 W22-W38 N12-N30
      3 1793 1234 (S05W55 L=112)  1152    152        3 (1732/1188-1865/1283)  -3.4 W48-W65 S06-S04
      4 1837 1003 (S20W53 L=110)  2548    277        3 (1791/ 867-1874/1138)  47.3 W46-W60 S26-S13
      5  264  801 (N11E56 L=  0)  1839    270        8 ( 198/ 704- 307/ 916)  31.4 E67-E49 N06-N17
      6  218  828 (N14E61 L=356)   379     38        1 ( 199/ 804- 235/ 851) -56.3 E62-E58 N12-N15
      7 1192  736 (S14W01 L= 58)   279    102        0 (1175/ 685-1209/ 780)  68.2 W00-W03 S16-S11
      8 1088  698 (S14E05 L= 51)   752    256        1 (1003/ 640-1179/ 755) -55.0 E08-W00 S18-S08
      9  922  585 (S16E18 L= 39)   780    306        0 ( 796/ 483- 982/ 690) -76.0 E21-E16 S22-S06
     10  762  552 (S14E28 L= 28)   466    198        0 ( 680/ 520- 803/ 617)   6.3 E33-E24 S15-S10
     11  381  492 (S09E59 L=357)  3164    288        7 ( 333/ 372- 422/ 610)  39.8 E78-E50 S16-S01
     12 1314  581 (S27W04 L= 61)   245     96        0 (1296/ 540-1353/ 606)  31.0 W02-W07 S29-S26
     13  956  296 (S35E29 L= 27)   314     68        1 ( 940/ 254- 968/ 329)  50.2 E32-E27 S38-S32
     14  952  170 (S46E41 L= 15)  1054     77        0 ( 918/ 133- 981/ 210)  15.9 E48-E34 S49-S42
  

    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