Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1328 1618 (N35W38 L=170)   606    137        2 (1261/1598-1385/1632) -16.7 W32-W42 N32-N37
      2  688 1441 (N39E14 L=118)   623    104        2 ( 645/1411- 739/1478) -45.0 E17-E10 N36-N42
      3  442 1231 (N30E36 L= 97)  1432    271        3 ( 371/1138- 512/1330) -51.8 E41-E30 N23-N37
      4  974 1232 (N20W01 L=134)  1032    338        5 ( 829/1177-1131/1308) -43.0 E06-W09 N13-N27
      5 1841 1213 (S03W63 L=195)   617    156        1 (1809/1179-1875/1236)   0.0 W57-W67 S04-S01
      6 1243 1037 (N03W13 L=145)  1130    223        3 (1160/ 939-1308/1138) -72.9 W10-W15 S03-N10
      7  476 1012 (N16E35 L= 97)   372    154        0 ( 444/ 979- 535/1078) -50.2 E36-E30 N14-N20
      8 1896 1046 (S14W64 L=196)  1004    186        3 (1858/1016-1926/1077) -24.0 W59-W68 S16-S11
      9 1839  973 (S16W55 L=188)  1749    294        2 (1783/ 900-1891/1039) -56.3 W50-W60 S22-S10
     10  261  812 (N07E58 L= 75)   476     84        2 ( 236/ 778- 284/ 837) -63.4 E60-E55 N04-N08
     11 1249  697 (S17W07 L=139)   833    142        1 (1183/ 627-1285/ 749) -60.3 W02-W09 S22-S14
     12  281  525 (S11E69 L= 63)  1275    250        2 ( 261/ 483- 315/ 593)  38.7 E75-E64 S14-S06
     13  989  341 (S36E20 L=112)  1178    230        1 ( 916/ 266-1031/ 426)  33.7 E28-E13 S40-S29
     14  575  327 (S29E51 L= 82)   967    150        2 ( 526/ 294- 609/ 363)   6.3 E55-E46 S31-S26
  

    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