Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  772 1784 (N44E41 L=209)   689     88        1 ( 748/1747- 800/1827) -26.6 E47-E35 N41-N47
      2 1689 1500 (N42W47 L=298)   761    119        2 (1627/1462-1741/1526)  -4.1 W39-W53 N39-N43
      3  977 1299 (N15E07 L=243)   261     68        1 ( 944/1274- 999/1318)  33.7 E09-E06 N13-N16
      4  865 1292 (N12E14 L=237)   236     84        2 ( 842/1260- 899/1312)  63.4 E15-E11 N10-N14
      5  662 1221 (N05E25 L=226)   398    140        0 ( 652/1153- 672/1297) -69.4 E27-E23 N00-N09
      6 1034 1245 (N12E03 L=248)   235    113        0 ( 982/1228-1083/1260)   9.5 E06-W00 N11-N13
      7  885 1208 (N08E11 L=240)   595    140        2 ( 827/1164- 937/1256) -23.2 E15-E08 N05-N09
      8 1147 1119 (N07W06 L=257)   199     88        0 (1111/1095-1179/1134)  36.9 W03-W07 N04-N07
      9  901  871 (S12E05 L=246)  1045    344        1 ( 837/ 745- 985/1026)  78.1 E07-E02 S20-S01
     10  150  951 (S19E67 L=183)   532     51        0 ( 131/ 922- 167/ 981)  38.7 E71-E64 S21-S17
     11 1049  804 (S13W05 L=256)   206     53        1 (1024/ 784-1073/ 819)   0.0 W03-W06 S14-S12
     12 1358  696 (S14W27 L=277)   441    145        1 (1293/ 654-1410/ 731) -12.5 W21-W30 S16-S13
     13 1124  646 (S22W13 L=264)   265    101        0 (1079/ 625-1176/ 665)  38.7 W10-W16 S23-S19
     14 1201  492 (S30W23 L=273)   275    100        0 (1151/ 472-1246/ 522)  45.0 W19-W25 S32-S27
     15  454  389 (S55E44 L=207)  2141    231        1 ( 385/ 326- 535/ 458) -25.0 E55-E33 S59-S49
  

    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