Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  235 1247 (N38E53 L=336)   444    136        0 ( 199/1231- 273/1271) -20.6 E57-E49 N36-N39
      2 1235 1211 (N12W17 L= 46)   561    174        2 (1142/1162-1311/1241) -41.2 W11-W20 N07-N15
      3 1897 1169 (S11W67 L= 96)   572    103        0 (1884/1124-1913/1215)  39.8 W64-W70 S13-S08
      4 1825 1113 (S11W56 L= 85)   453     73        1 (1806/1076-1840/1156)  78.7 W53-W57 S13-S08
      5  736 1100 (N18E15 L= 14)   236     40        1 ( 718/1077- 762/1125) -56.3 E16-E13 N16-N19
      6 1245 1044 (N03W13 L= 42)   392    133        0 (1193/ 979-1280/1097)  26.6 W08-W16 N00-N04
      7 1861 1021 (S17W57 L= 86)   475     89        1 (1839/ 984-1885/1043)   8.1 W53-W60 S18-S16
      8  411  946 (N16E41 L=349)   302     83        1 ( 395/ 916- 436/ 984) -90.0 E41-E38 N14-N18
      9  199  873 (N15E62 L=327)   615    108        1 ( 170/ 829- 228/ 909) -51.3 E64-E59 N12-N17
     10 1848  818 (S30W52 L= 81)  1349    392        2 (1771/ 747-1882/ 907)  21.0 W43-W56 S31-S25
     11  439  843 (N10E41 L=348)   451    140        3 ( 401/ 794- 471/ 900)  51.3 E43-E37 N06-N12
     12  987  676 (S12E11 L= 18)   472    127        1 ( 956/ 620-1012/ 746)  54.5 E13-E07 S14-S07
     13 1562  542 (S38W23 L= 52)   620    101        3 (1514/ 504-1605/ 573)   0.0 W19-W27 S39-S35
     14  403  470 (S12E59 L=330)   849    117        2 ( 357/ 444- 447/ 512) -50.2 E61-E55 S14-S08
     15  483  347 (S22E59 L=330)   594    135        2 ( 447/ 333- 521/ 362)   0.0 E63-E54 S22-S20
  

    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