Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1528 1635 (N43W45 L=131)  2025    319        8 (1466/1569-1574/1692)  32.7 W36-W52 N38-N47
      2 1088 1505 (N35W05 L= 90)   445    150        0 (1068/1435-1103/1566)  78.7 W03-W06 N29-N39
      3  745 1506 (N34E21 L= 64)   325     79        0 ( 724/1470- 765/1542) -63.4 E23-E19 N31-N37
      4  736 1317 (N22E19 L= 66)   298     83        0 ( 712/1276- 753/1353) -53.1 E21-E18 N19-N24
      5 1692 1324 (N21W49 L=134)   345     96        0 (1658/1279-1726/1352) -38.7 W46-W51 N18-N22
      6 1685 1234 (N15W47 L=132)   747    189        1 (1630/1195-1749/1262)  15.3 W41-W52 N13-N16
      7 1737 1104 (N07W50 L=136)   718    256        4 (1651/1078-1815/1145) -10.6 W42-W58 N05-N10
      8  670  982 (N01E22 L= 63)   417    148        1 ( 611/ 948- 733/1036)  32.0 E26-E18 S01-N04
      9  295  825 (S10E52 L= 33)   336    107        2 ( 277/ 799- 317/ 878) -78.7 E54-E50 S11-S06
     10 1726  676 (S20W52 L=137)  1277    255        2 (1660/ 579-1771/ 813)  75.1 W47-W55 S26-S10
     11  225  786 (S13E61 L= 25)   472    117        1 ( 193/ 766- 257/ 812) -15.9 E64-E56 S14-S11
     12  631  583 (S25E28 L= 58)   373     86        1 ( 585/ 564- 672/ 606)   8.1 E31-E24 S26-S23
     13 1266  410 (S38W19 L=104)   649    330        3 (1218/ 339-1316/ 486)  67.4 W16-W21 S43-S31
     14 1175  349 (S43W13 L= 98)   880    157        4 (1146/ 301-1207/ 413) -84.3 W09-W15 S47-S37
     15  866  362 (S42E13 L= 72)   418     61        0 ( 840/ 339- 888/ 399)  68.2 E15-E11 S43-S38
  

    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