Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1268 1612 (N42W24 L=277)   285     33        0 (1248/1589-1287/1636)  31.0 W21-W26 N40-N43
      2 1777 1294 (N16W59 L=312)  1057    159        1 (1705/1249-1835/1344) -30.3 W52-W65 N12-N19
      3 1832 1214 (N10W63 L=316)   448     42        1 (1814/1186-1852/1238)  31.0 W60-W66 N08-N11
      4  341 1161 (N14E48 L=205)   315     62        1 ( 302/1145- 371/1174)   0.0 E51-E45 N13-N15
      5  213  936 (N00E61 L=192)   424     54        2 ( 196/ 904- 237/ 967)  31.0 E63-E57 S01-N02
      6 1131  866 (S06W06 L=259)   281    139        0 (1066/ 829-1179/ 889) -33.7 W01-W08 S08-S04
      7  448  839 (S05E39 L=214)   281     64        1 ( 432/ 812- 470/ 878) -90.0 E40-E37 S07-S03
      8  212  660 (S18E71 L=182)   876     52        1 ( 184/ 638- 242/ 680)   8.7 E77-E64 S19-S16
      9 1469  642 (S22W29 L=282)   575     83        2 (1441/ 601-1503/ 677) -63.4 W26-W31 S25-S19
     10  602  599 (S21E31 L=222)   271     43        0 ( 575/ 574- 621/ 620) -56.3 E32-E29 S22-S19
     11 1325  522 (S30W19 L=272)   593    111        1 (1282/ 486-1379/ 561)  33.7 W16-W22 S32-S27
     12  581  520 (S27E35 L=218)   346    110        0 ( 555/ 473- 620/ 559)  40.6 E37-E30 S30-S24
     13 1030  518 (S28E02 L=251)   259     95        0 ( 985/ 506-1074/ 537)   9.5 E05-W01 S29-S27
     14  916  471 (S31E11 L=242)   317     64        0 ( 890/ 441- 938/ 505)  59.0 E12-E08 S33-S28
  

    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