Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1436 1792 (N49W65 L=119)   658     60        0 (1421/1757-1454/1825)  14.7 W58-W77 N46-N51
      2 1759 1482 (N22W69 L=123)   866    104        0 (1715/1454-1804/1510) -33.7 W64-W74 N18-N24
      3  669 1423 (N35E21 L= 33)   425    115        0 ( 632/1368- 691/1466) -54.5 E24-E19 N31-N38
      4 1059 1364 (N26W07 L= 61)  1601    647        3 ( 808/1308-1320/1430) -13.6 E10-W23 N20-N30
      5  288 1219 (N24E54 L=  0)   407     77        0 ( 273/1180- 309/1258) -51.3 E56-E51 N21-N26
      6  634 1166 (N19E24 L= 30)   229     70        0 ( 604/1150- 670/1180)  14.0 E25-E21 N17-N19
      7 1584  958 (S06W35 L= 89)  1588    333        2 (1514/ 821-1617/1101) -80.0 W32-W37 S14-N03
      8 1814  916 (S13W56 L=110)  1944    301        3 (1724/ 823-1915/1013)  20.0 W46-W71 S16-S08
      9  738  887 (N01E19 L= 35)   397     97        1 ( 689/ 859- 772/ 922)  18.4 E22-E16 N00-N02
     10 1182  723 (S15W06 L= 60)   241     73        0 (1146/ 703-1217/ 742)  21.8 W03-W08 S15-S13
     11 1082  633 (S19E01 L= 53)   226     94        0 (1060/ 592-1115/ 661)  53.1 E02-W01 S21-S17
     12  329  524 (S20E63 L=351)  4028    367        7 ( 248/ 440- 399/ 604) -34.7 E77-E55 S26-S14
     13 1317  492 (S33W14 L= 68)   323     52        1 (1296/ 465-1341/ 516)  56.3 W12-W15 S34-S30
     14 1214  176 (S63W03 L= 58)   813    111        1 (1160/ 159-1254/ 192)   0.0 E03-W09 S66-S58
  

    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