Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  783 1801 (N43E35 L=166)   378     66        0 ( 761/1768- 804/1828) -51.3 E38-E31 N40-N45
      2  528 1609 (N25E45 L=156)   390     73        3 ( 495/1572- 552/1634) -23.2 E48-E41 N22-N27
      3 1033 1569 (N28E07 L=194)   309     28        1 (1007/1548-1058/1591)  56.3 E08-E05 N26-N29
      4  304 1519 (N18E63 L=138)  2957    171        6 ( 236/1463- 359/1587)  31.0 E69-E55 N14-N22
      5 1049 1502 (N24E05 L=196)   465     81        4 (1012/1459-1073/1546)  90.0 E07-E03 N20-N27
      6  318 1427 (N12E56 L=145)   706     82        0 ( 288/1393- 346/1453) -23.2 E59-E52 N09-N13
      7 1733 1299 (N22W46 L=247)  2210    339        3 (1590/1181-1826/1404) -22.2 W33-W55 N16-N26
      8 1118 1361 (N15W01 L=202)   509     95        2 (1069/1324-1169/1399)   0.0 E01-W04 N13-N17
      9  461 1243 (N01E39 L=162)   724    235        0 ( 383/1209- 533/1285)  10.3 E44-E33 S01-N03
     10  884 1206 (N03E11 L=190)   354    118        1 ( 849/1162- 917/1256) -45.0 E13-E08 N00-N05
     11  356 1124 (S07E45 L=156)   310     82        1 ( 330/1088- 393/1151)  45.0 E47-E42 S08-S04
     12 1326  917 (S08W20 L=221)   237     40        0 (1305/ 894-1348/ 941) -45.0 W18-W21 S09-S06
     13  640  810 (S23E22 L=179)   580    134        1 ( 574/ 788- 710/ 836)  -6.3 E26-E17 S24-S21
     14 1270  759 (S18W19 L=220)   745    292        2 (1134/ 710-1397/ 803)  28.1 W11-W26 S22-S13
     15 1690  431 (S30W69 L=270)  3815    296        3 (1579/ 365-1807/ 524)  37.9 W60-W78 S35-S21
  

    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