Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  800 1494 (N19E26 L=230)   283     99        1 ( 788/1446- 816/1544) -63.4 E27-E23 N16-N22
      2 1116 1451 (N24E05 L=251)   300     92        1 (1085/1403-1146/1488) -31.0 E07-E02 N21-N26
      3  675 1361 (N09E29 L=227)   323     73        0 ( 656/1322- 707/1398)  90.0 E30-E27 N06-N11
      4  234 1170 (S12E58 L=198)  1242    169        0 ( 192/1102- 269/1248)  73.3 E61-E56 S16-S06
      5 1363 1172 (N14W16 L=272)   204     86        0 (1324/1151-1404/1188)  36.9 W14-W19 N11-N14
      6 1116 1130 (N05W03 L=259)   220    126        1 (1067/1095-1152/1180) -31.0 E01-W04 N03-N06
      7  622 1023 (S12E24 L=232)   262     68        0 ( 599/ 991- 651/1056)  68.2 E25-E22 S14-S09
      8  568 1015 (S14E27 L=229)   248     45        1 ( 539/ 988- 590/1041) -14.0 E29-E25 S15-S12
      9  195  998 (S23E59 L=197)   638    119        2 ( 164/ 960- 213/1025) -31.0 E62-E56 S24-S20
     10 1228  738 (S14W19 L=275)   299     47        2 (1197/ 722-1257/ 757)  53.1 W17-W20 S16-S12
     11  581  719 (S31E22 L=234)   431    101        1 ( 548/ 701- 632/ 750)  18.4 E23-E17 S33-S29
     12 1447  708 (S11W34 L=289)   292    126        1 (1408/ 658-1500/ 735)  63.4 W31-W36 S14-S08
     13 1131  530 (S29W20 L=276)   322     86        1 (1083/ 514-1173/ 546)  18.4 W17-W23 S31-S28
     14 1641  461 (S19W60 L=316)   437     89        0 (1605/ 447-1667/ 478)  26.6 W57-W63 S21-S18
  

    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