Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1123 1883 (N54E33 L=293)   796     85        1 (1089/1861-1162/1908)  71.6 E38-E28 N50-N56
      2  720 1605 (N19E37 L=289)  2380    567        4 ( 676/1377- 767/1856) -49.7 E57-E28 N04-N37
      3 1221 1537 (N29E04 L=322)   451    144        0 (1167/1486-1255/1600) -29.1 E09-W00 N26-N31
      4  155 1039 (S26E68 L=258)   681     82        0 ( 138/1001- 170/1079) -68.2 E70-E64 S28-S23
      5  595  719 (S36E18 L=307)  1773    336        3 ( 425/ 676- 738/ 770)  30.3 E33-E08 S43-S29
      6  924  679 (S28W05 L=331)   391    187        0 ( 892/ 615- 958/ 749) -69.4 W03-W08 S31-S23
      7 1275  691 (S17W24 L=350)   405     69        2 (1237/ 663-1314/ 717)  26.6 W21-W26 S18-S15
      8 1099  598 (S27W18 L=344)   940    172        2 (1006/ 575-1182/ 633)  26.6 W12-W22 S30-S24
      9 1424  545 (S20W40 L=  6)   929    159        2 (1379/ 501-1488/ 592)  76.0 W36-W42 S23-S15
     10 1345  516 (S24W37 L=  3)   264     45        2 (1324/ 492-1367/ 540) -11.3 W34-W39 S25-S22
     11 1469  487 (S21W47 L= 13)   342     88        1 (1434/ 450-1497/ 514)  78.7 W45-W48 S24-S19
     12  668  359 (S59E02 L=324)  1177    189        2 ( 600/ 309- 751/ 408)  51.8 E08-W04 S66-S52
     13 1488  370 (S27W57 L= 23)   737    181        0 (1397/ 353-1568/ 391)  31.6 W50-W64 S30-S22
     14  571  343 (S65E14 L=312)   890     71        0 ( 540/ 306- 597/ 386)  90.0 E19-E10 S69-S60
  

    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