Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1208 1869 (N59W53 L= 59)   899     74        2 (1172/1835-1244/1897)   0.0 W45-W65 N56-N61
      2 1529 1660 (N35W57 L= 63)   473    142        0 (1476/1631-1600/1671) -26.6 W51-W61 N31-N36
      3 1519 1556 (N29W48 L= 54)   716    105        2 (1461/1523-1571/1583) -20.6 W43-W51 N26-N31
      4  629 1367 (N33E22 L=344)   448     94        0 ( 609/1320- 647/1423)  80.5 E23-E20 N30-N36
      5  371 1287 (N31E45 L=321)  2462    362        6 ( 255/1182- 502/1412) -28.1 E63-E32 N23-N39
      6 1670 1352 (N14W50 L= 56)   457    130        0 (1633/1322-1713/1379)  -8.1 W46-W53 N11-N15
      7  975 1283 (N23W01 L=  7)   242    110        0 ( 921/1261-1002/1318)  21.8 E02-W03 N21-N24
      8 1291 1237 (N15W20 L= 26)   565    187        0 (1205/1216-1384/1250) -20.0 W14-W25 N11-N16
      9 1728 1138 (N00W49 L= 55)   294     50        0 (1711/1113-1751/1161)  14.0 W47-W51 N00-N01
     10  502  955 (N09E34 L=332)   375     88        1 ( 486/ 900- 521/1004)  74.1 E35-E32 N05-N12
     11 1849  921 (S15W58 L= 64)  1291    123        2 (1795/ 876-1906/ 968)   8.1 W51-W66 S16-S13
     12  778  698 (S10E20 L=346)   639    114        4 ( 757/ 637- 802/ 757)  60.3 E22-E17 S13-S05
     13  318  581 (S13E59 L=307)  2347    378        6 ( 243/ 503- 432/ 689) -53.1 E67-E48 S18-S05
     14 1044  624 (S18E05 L=  1)   441    176        0 ( 980/ 601-1118/ 658)  -7.1 E08-W00 S19-S15
     15  574  333 (S32E49 L=317)   903    129        3 ( 531/ 297- 635/ 389)  19.4 E57-E40 S35-S28
  

    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