Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1454 1743 (N32W56 L=101)   940    230        1 (1396/1703-1510/1771)  -4.4 W49-W62 N29-N34
      2 1059 1256 (N18W08 L= 53)   751    273        3 ( 940/1233-1220/1281) -26.6 W01-W17 N13-N21
      3 1541 1228 (N02W36 L= 81)   421     93        2 (1504/1195-1579/1252) -31.0 W33-W38 N00-N04
      4 1896 1133 (S15W63 L=108)  2939    476        7 (1857/1021-1952/1202)  36.9 W55-W73 S20-S10
      5 1703  834 (S25W37 L= 82)  2536    548        4 (1569/ 685-1769/1105)  42.1 W25-W48 S32-S10
      6 1536  968 (S11W28 L= 73)   270     95        0 (1499/ 946-1581/1000) -51.3 W26-W30 S13-S08
      7 1072  904 (S02E01 L= 44)   302    105        0 (1052/ 851-1093/ 963)  80.5 E01-W01 S05-N01
      8  239  912 (N18E55 L=349)   355     60        0 ( 226/ 881- 255/ 949) -90.0 E56-E54 N16-N20
      9 1229  837 (S10W06 L= 51)   717    264        0 (1089/ 788-1337/ 903) -15.9 E01-W13 S11-S05
     10 1577  819 (S21W27 L= 72)   290     76        1 (1558/ 763-1597/ 855)  59.0 W24-W29 S24-S19
     11  247  802 (N12E58 L=347)   526    191        0 ( 184/ 759- 296/ 827) -26.6 E64-E54 N08-N13
     12 1284  704 (S19W06 L= 51)   666    245        1 (1256/ 593-1343/ 822)  50.2 W01-W12 S25-S13
     13  298  670 (N03E58 L=346)  1413    320        3 ( 209/ 628- 380/ 718)  -9.5 E68-E49 N00-N06
     14  907  494 (S21E22 L= 23)   315     80        1 ( 885/ 451- 925/ 525)  68.2 E24-E20 S23-S18
     15  950  340 (S32E27 L= 18)   313     66        1 ( 918/ 322- 972/ 363)  11.3 E29-E24 S33-S31
  

    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